lisp/gnus/gnus-int.el (gnus-request-accept-article): Doc fix

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index a2fe1d0ec95a2389a80a6277ea5507ef85c6efb3..e2337ea8be83d8870633a46298e48e710037d199 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,7 @@
+2014-02-05  Lars Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-int.el (gnus-request-accept-article): Doc fix.
+
 2014-02-01  Lars Ingebrigtsen  <larsi@gnus.org>
 
        * nnir.el (nnir-request-update-mark): Don't try to update the source

diff --git a/lisp/gnus/gnus-int.el b/lisp/gnus/gnus-int.el
index 34bf78a16b8afba8fef31ff3af62d3986b976170..edf611976381973ad15aa2972aa31e1ffc4a32d1 100644 (file)
--- a/lisp/gnus/gnus-int.el
+++ b/lisp/gnus/gnus-int.el
@@ -754,7 +754,6 @@ If GROUP is nil, all groups on GNUS-COMMAND-METHOD are scanned."
 
 (defun gnus-request-accept-article (group &optional gnus-command-method last
                                          no-encode)
-  ;; Make sure there's a newline at the end of the article.
   (when (stringp gnus-command-method)
     (setq gnus-command-method (gnus-server-to-method gnus-command-method)))
   (when (and (not gnus-command-method)
@@ -762,6 +761,7 @@ If GROUP is nil, all groups on GNUS-COMMAND-METHOD are scanned."
     (setq gnus-command-method (or (gnus-find-method-for-group group)
                                   (gnus-group-name-to-method group))))
   (goto-char (point-max))
+  ;; Make sure there's a newline at the end of the article.
   (unless (bolp)
     (insert "\n"))
   (unless no-encode